home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / forlib1.arc / SETRC.ASM < prev    next >
Encoding:
Assembly Source File  |  1986-04-01  |  603 b   |  24 lines
  1. DATA SEGMENT PUBLIC 'DATA'
  2. TITLE__ DB 'TITLE: SET DOS RETURN CODE FOR MS FORTRAN'
  3. COPY_R  DB '   (C) John R. Petrocelli'
  4.         DB '       Schenectady,NY    '
  5.         DB '       04/01/86          '
  6. EXTRN  DOSEQQ:WORD                  ; DOCUMENTED IM MS FORTRAN MANUAL
  7. DATA ENDS
  8. DGROUP GROUP DATA
  9. CODE   SEGMENT 'CODE'
  10.        ASSUME CS:CODE,DS:DGROUP,SS:DGROUP
  11. PUBLIC SETRC
  12. SETRC  PROC FAR
  13.        PUSH BP
  14.        MOV BP,SP
  15.        LES BX,DWORD PTR[BP+06]
  16.        MOV AL,ES:[BX]
  17.        MOV DOSEQQ,AX
  18.        MOV SP,BP
  19.        POP BP
  20.        RET 4
  21.        SETRC ENDP
  22.        CODE ENDS
  23. END
  24.